﻿#Region "IMPORTS"
Imports DAO
#End Region

Public Class Cidade
    Inherits Modelo
    Implements IModelo

#Region "ATRIBUTOS"

    Private _cidadeId As Integer

    Private _nome As String

#End Region

#Region "CONSTRUTOR(S)"

    Public Sub New()
        MyBase.New()
    End Sub

    Public Sub New(ByVal id As Integer)
        MyBase.New()
        Me._cidadeId = id
    End Sub

#End Region

#Region "PROPRIEDADES"

    Public Overridable Property CidadeId() As Integer
        Get
            Return Me._cidadeId
        End Get
        Set(ByVal value As Integer)
            _cidadeId = value
        End Set
    End Property

    Public Overridable Property Nome() As String
        Get
            Return Me._nome
        End Get
        Set(ByVal value As String)
            Me._nome = value
        End Set
    End Property

#End Region

#Region "METODOS OVERRIDES"

    Public Overrides Function ToString() As String
        Return Me.Nome
    End Function

#End Region
End Class
